home *** CD-ROM | disk | FTP | other *** search
/ Aminet 49 / Aminet 49 (2002)(GTI - Schatztruhe)[!][Jun 2002].iso / Aminet / util / boot / Bekuna.lha / bekuna1.5 / frage < prev    next >
Text File  |  2002-03-03  |  751b  |  34 lines
  1. /* Funktion-FRAGE (Frage JA/NEIN) */
  2. /* von Kuno Naumann (27.01.2002) */
  3. /* 1/0 = frage(Text[,Hintergrund]) */
  4.  
  5. if arg()<1 then return 0
  6. if arg(2,'E') then hg=arg(2)
  7. else hg=""
  8. call open(fr,"awnpipe:frag/xc")
  9. call top(' "Frage" cg dg db so si sg a cs m 'hg)
  10. fo=top('textattr gt "times.font" defn 15')
  11. call top('layout font='fo' v si so')
  12. call top('button gt "'arg(1)'" ro')
  13. call top('space')
  14. call top('layout b 0 font='fo' si')
  15. jg=top('button gt "_Ja" c')
  16. call top('space')
  17. ng=top('button gt "_Nein" c')
  18. call top('le')
  19. call top('le')
  20. call top('open')
  21. call top('continue')
  22. in=readln(fr)
  23. parse var in in1 in2 .
  24. y=0
  25. if in1='gadget' & in2=jg then y=1
  26. call close(fr)
  27. return(y)
  28.  
  29. top:
  30. parse arg out
  31. call writeln(fr,arg(1))
  32. res=word(readln(fr),2)
  33. return(res)
  34.